Cream of the Crop 26/Cream of the Crop 26.iso/program/ussbc23.zip/DEMOS/REPORTFM.DFM/REPORTFM.txt

Text File | 1996-07-18 | 5KB | 216 lines

object fmReport: TfmReport
  Left = 73
  Top = 159
  Width = 685
  Height = 389
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'fmReport'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Scaled = False
  TextHeight = 14
  object SSBarcode1: TSSBarcode
    Left = 216
    Top = 136
    Width = 257
    Height = 13
    BarCodeType = bcPostnet
    BarColor = clBlack
    BarWidth = 0.019999999552965160
    Data = '94766-1234'
    DataField = 'Zip'
    DataSource = dsCustomer
    PrintHumanReadable = False
    WideBarRatio = 3.000000000000000000
    Color = clWhite
    Font.Color = clWindowText
    Font.Height = 6
    Font.Name = 'Arial'
    Font.Style = []
    Visible = False
  end
  object bndDetail: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 121
    Align = alTop
    BandType = rbDetail
    Color = clWhite
    ForceNewPage = False
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrInchesV
    object QRDBText1: TQRDBText
      Left = 56
      Top = 32
      Width = 177
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'Contact'
    end
    object QRDBText2: TQRDBText
      Left = 56
      Top = 48
      Width = 185
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'Company'
    end
    object QRDBText3: TQRDBText
      Left = 56
      Top = 64
      Width = 185
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'Addr1'
    end
    object QRDBText4: TQRDBText
      Left = 56
      Top = 80
      Width = 185
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'Addr2'
    end
    object QRDBText5: TQRDBText
      Left = 56
      Top = 96
      Width = 105
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'City'
    end
    object QRDBText6: TQRDBText
      Left = 168
      Top = 96
      Width = 25
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'State'
    end
    object QRDBText7: TQRDBText
      Left = 192
      Top = 96
      Width = 73
      Height = 17
      AlignToBand = False
      DataSource = dsCustomer
      DataField = 'Zip'
    end
    object QRssBarcode1: TQRssBarcode
      Left = 56
      Top = 16
      Width = 257
      Height = 13
      Barcode = SSBarcode1
    end
  end
  object btReport: TButton
    Left = 32
    Top = 128
    Width = 169
    Height = 49
    Caption = '&Preview Report'
    TabOrder = 1
    OnClick = btReportClick
  end
  object QuickReport: TQuickReport
    DataSource = dsCustomer
    OnFilter = QuickReportFilter
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 3
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    PrintOrder = qrColByCol
    ReportTitle = 'ssBarcode w/QR Sample'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 32
    Top = 184
  end
  object tbCustomer: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'CUSTOMER.DB'
    Left = 64
    Top = 184
    object tbCustomerCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object tbCustomerCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object tbCustomerAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object tbCustomerAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object tbCustomerCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object tbCustomerState: TStringField
      FieldName = 'State'
    end
    object tbCustomerZip: TStringField
      FieldName = 'Zip'
      OnGetText = tbCustomerZipGetText
      Size = 10
    end
    object tbCustomerCountry: TStringField
      FieldName = 'Country'
    end
    object tbCustomerPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object tbCustomerFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object tbCustomerTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object tbCustomerContact: TStringField
      FieldName = 'Contact'
    end
    object tbCustomerLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object dsCustomer: TDataSource
    DataSet = tbCustomer
    Left = 96
    Top = 184
  end
end